home *** CD-ROM | disk | FTP | other *** search
/ Developer CD Series 1995 August: Tool Chest / Dev.CD Aug 95 TC / Dev.CD Aug 95 TC.toast / Tool Chest / Interfaces / UniversalInterfaces 2.1B1 / PInterfaces / CMConversions.p < prev    next >
Encoding:
Text File  |  1995-04-18  |  4.5 KB  |  151 lines  |  [TEXT/MPS ]
  1. {
  2.      File:        CMConversions.p
  3.  
  4.      Contains:    ColorSync base <-> derived color space conversion Component interface
  5.  
  6.      Version:    Technology:    ColorSync 2.0
  7.                  Package:    Universal Interfaces 2.1ß1 in “MPW Prerelease” on ETO #17
  8.  
  9.      Copyright:    © 1984-1995 by Apple Computer, Inc.
  10.                  All rights reserved.
  11.  
  12.      Bugs?:        If you find a problem with this file, use the Apple Bug Reporter
  13.                  stack.  Include the file and version information (from above)
  14.                  in the problem description and send to:
  15.                      Internet:    apple.bugs@applelink.apple.com
  16.                      AppleLink:    APPLE.BUGS
  17.  
  18. }
  19.  
  20. {$IFC UNDEFINED UsingIncludes}
  21. {$SETC UsingIncludes := 0}
  22. {$ENDC}
  23.  
  24. {$IFC NOT UsingIncludes}
  25.  UNIT CMConversions;
  26.  INTERFACE
  27. {$ENDC}
  28.  
  29. {$IFC UNDEFINED __CMCONVERSIONS__}
  30. {$SETC __CMCONVERSIONS__ := 1}
  31.  
  32. {$I+}
  33. {$SETC CMConversionsIncludes := UsingIncludes}
  34. {$SETC UsingIncludes := 1}
  35.  
  36.  
  37. {$IFC UNDEFINED __TYPES__}
  38. {$I Types.p}
  39. {$ENDC}
  40. {    ConditionalMacros.p                                            }
  41.  
  42. {$IFC UNDEFINED __COMPONENTS__}
  43. {$I Components.p}
  44. {$ENDC}
  45. {    MixedMode.p                                                    }
  46.  
  47. {$IFC UNDEFINED __CMAPPLICATION__}
  48. {$I CMApplication.p}
  49. {$ENDC}
  50. {    Quickdraw.p                                                    }
  51. {        QuickdrawText.p                                            }
  52. {    Files.p                                                        }
  53. {        OSUtils.p                                                }
  54. {            Memory.p                                            }
  55. {    Printing.p                                                    }
  56. {        Errors.p                                                }
  57. {        Dialogs.p                                                }
  58. {            Windows.p                                            }
  59. {                Events.p                                        }
  60. {                Controls.p                                        }
  61. {                    Menus.p                                        }
  62. {            TextEdit.p                                            }
  63. {    CMICCProfile.p                                                }
  64.  
  65. {$PUSH}
  66. {$ALIGN MAC68K}
  67. {$LibExport+}
  68.  
  69. CONST
  70.     CMConversionInterfaceVersion = 1;
  71.  
  72. { Component function selectors }
  73.     kCMXYZToLab                    = 0;
  74.     kCMLabToXYZ                    = 1;
  75.     kCMXYZToLuv                    = 2;
  76.     kCMLuvToXYZ                    = 3;
  77.     kCMXYZToYxy                    = 4;
  78.     kCMYxyToXYZ                    = 5;
  79.     kCMRGBToHLS                    = 6;
  80.     kCMHLSToRGB                    = 7;
  81.     kCMRGBToHSV                    = 8;
  82.     kCMHSVToRGB                    = 9;
  83.     kCMRGBToGRAY                = 10;
  84.     kCMXYZToFixedXYZ            = 11;
  85.     kCMFixedXYZToXYZ            = 12;
  86.  
  87.  
  88. FUNCTION CMXYZToLab(ci: ComponentInstance; {CONST}VAR src: CMColor; {CONST}VAR white: CMXYZColor; VAR dst: CMColor; count: LONGINT): ComponentResult;
  89.     {$IFC NOT GENERATINGCFM}
  90.     INLINE $2F3C, 16, 0, $7000, $A82A;
  91.     {$ENDC}
  92. FUNCTION CMLabToXYZ(ci: ComponentInstance; {CONST}VAR src: CMColor; {CONST}VAR white: CMXYZColor; VAR dst: CMColor; count: LONGINT): ComponentResult;
  93.     {$IFC NOT GENERATINGCFM}
  94.     INLINE $2F3C, 16, 1, $7000, $A82A;
  95.     {$ENDC}
  96. FUNCTION CMXYZToLuv(ci: ComponentInstance; {CONST}VAR src: CMColor; {CONST}VAR white: CMXYZColor; VAR dst: CMColor; count: LONGINT): ComponentResult;
  97.     {$IFC NOT GENERATINGCFM}
  98.     INLINE $2F3C, 16, 2, $7000, $A82A;
  99.     {$ENDC}
  100. FUNCTION CMLuvToXYZ(ci: ComponentInstance; {CONST}VAR src: CMColor; {CONST}VAR white: CMXYZColor; VAR dst: CMColor; count: LONGINT): ComponentResult;
  101.     {$IFC NOT GENERATINGCFM}
  102.     INLINE $2F3C, 16, 3, $7000, $A82A;
  103.     {$ENDC}
  104. FUNCTION CMXYZToYxy(ci: ComponentInstance; {CONST}VAR src: CMColor; VAR dst: CMColor; count: LONGINT): ComponentResult;
  105.     {$IFC NOT GENERATINGCFM}
  106.     INLINE $2F3C, 12, 4, $7000, $A82A;
  107.     {$ENDC}
  108. FUNCTION CMYxyToXYZ(ci: ComponentInstance; {CONST}VAR src: CMColor; VAR dst: CMColor; count: LONGINT): ComponentResult;
  109.     {$IFC NOT GENERATINGCFM}
  110.     INLINE $2F3C, 12, 5, $7000, $A82A;
  111.     {$ENDC}
  112. FUNCTION CMRGBToHLS(ci: ComponentInstance; {CONST}VAR src: CMColor; VAR dst: CMColor; count: LONGINT): ComponentResult;
  113.     {$IFC NOT GENERATINGCFM}
  114.     INLINE $2F3C, 12, 6, $7000, $A82A;
  115.     {$ENDC}
  116. FUNCTION CMHLSToRGB(ci: ComponentInstance; {CONST}VAR src: CMColor; VAR dst: CMColor; count: LONGINT): ComponentResult;
  117.     {$IFC NOT GENERATINGCFM}
  118.     INLINE $2F3C, 12, 7, $7000, $A82A;
  119.     {$ENDC}
  120. FUNCTION CMRGBToHSV(ci: ComponentInstance; {CONST}VAR src: CMColor; VAR dst: CMColor; count: LONGINT): ComponentResult;
  121.     {$IFC NOT GENERATINGCFM}
  122.     INLINE $2F3C, 12, 8, $7000, $A82A;
  123.     {$ENDC}
  124. FUNCTION CMHSVToRGB(ci: ComponentInstance; {CONST}VAR src: CMColor; VAR dst: CMColor; count: LONGINT): ComponentResult;
  125.     {$IFC NOT GENERATINGCFM}
  126.     INLINE $2F3C, 12, 9, $7000, $A82A;
  127.     {$ENDC}
  128. FUNCTION CMRGBToGray(ci: ComponentInstance; {CONST}VAR src: CMColor; VAR dst: CMColor; count: LONGINT): ComponentResult;
  129.     {$IFC NOT GENERATINGCFM}
  130.     INLINE $2F3C, 12, 10, $7000, $A82A;
  131.     {$ENDC}
  132. FUNCTION CMXYZToFixedXYZ(ci: ComponentInstance; {CONST}VAR src: CMXYZColor; VAR dst: CMFixedXYZColor; count: LONGINT): ComponentResult;
  133.     {$IFC NOT GENERATINGCFM}
  134.     INLINE $2F3C, 12, 11, $7000, $A82A;
  135.     {$ENDC}
  136. FUNCTION CMFixedXYZToXYZ(ci: ComponentInstance; {CONST}VAR src: CMFixedXYZColor; VAR dst: CMXYZColor; count: LONGINT): ComponentResult;
  137.     {$IFC NOT GENERATINGCFM}
  138.     INLINE $2F3C, 12, 12, $7000, $A82A;
  139.     {$ENDC}
  140.  
  141. {$ALIGN RESET}
  142. {$POP}
  143.  
  144. {$SETC UsingIncludes := CMConversionsIncludes}
  145.  
  146. {$ENDC} {__CMCONVERSIONS__}
  147.  
  148. {$IFC NOT UsingIncludes}
  149.  END.
  150. {$ENDC}
  151.